1 REM SEEPORTS can be used to view the out put from any I/O ports.
2 REM Simply substitute the starting port address in line forty and
3 REM put the number  of ports to be viewed  in the FOR statement  in
4 REM line  30.
10 CLS
20 LOCATE 1,1
30 FOR I = 0 TO 15
40 PRINT INP(&H240 + I),
50 NEXT I
60 GOTO 20
